home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / comms / internet / mail-related / yuadmin / install next >
Text File  |  1996-09-07  |  2KB  |  98 lines
  1. ;***************************************
  2. ;*                                     *
  3. ;* Installer script for YUAdmin        *
  4. ;*                                     *
  5. ;* $VER: Install YUAdmin 1.0 (29.8.96) *
  6. ;*                                     *
  7. ;* (C)1996 Albert Vortman              *
  8. ;*                                     *
  9. ;***************************************
  10. (onerror (CLEANUP))
  11.  
  12. ;------------------------------------------------------------------------
  13. (set @app-name "YUAdmin")
  14.  
  15. ;------------------------------------------------------------------------
  16. (set #wrongversion "You need at least version 42.9 of Installer!")
  17. (set #welcome "Welcome to the installation of YUAdmin!")
  18. (set #no-diskspace "You need more HD space.")
  19.  
  20. ;------------------------------------------------------------------------
  21. (procedure CLEANUP
  22.   (delete (tackon @default-dest ".tempinstall") (all) (optional "force"))
  23. ) ; CLEANUP
  24.  
  25. ;------------------------------------------------------------------------
  26. (set @default-dest "YAM:")
  27. (welcome #welcome)
  28. (complete 0)
  29.  
  30. (set yuadir
  31.   (askdir
  32.     (prompt
  33.       (cat "Select a directory in which to install the YUAdmin program."))
  34.     (default "YAM:")
  35.     (help @askdir-help)
  36.   )
  37. )
  38.  
  39. (set yamdir (tackon yuadir "yam:"))
  40.  
  41.  
  42. (if (= (exists yamdir) 0)
  43.   (makedir yamdir)
  44. )
  45.  
  46. (copyfiles
  47.   (source "YUAdmin")
  48.   (help   @copyfiles-help)
  49.   (dest   yamdir)
  50.   (infos)
  51. )
  52.  
  53. (copyfiles
  54.   (help   @copyfiles-help)
  55.   (source "YUAdmin.info")
  56.   (dest   yamdir)
  57.   (infos)
  58. )
  59.  
  60. (set docdir
  61.   (askdir
  62.     (prompt "Select directory for YUAdmin.guide:")
  63.     (default "YAM:docs")
  64.     (help @askdir-help)
  65.   )
  66. )
  67.  
  68. (copyfiles
  69.   (prompt "\nCopying YUAdmin.guide...")
  70.   (help   @copyfiles-help)
  71.   (source "YUAdmin.guide")
  72.   (dest   docdir)
  73.   (infos)
  74. )
  75.  
  76. (makedir (tackon yamdir "MAIL"))
  77.  
  78. (copylib
  79.   (prompt "\nCopying reqtools.library to LIBS:...")
  80.    (help @copylib-help)
  81.   (source "Libs/reqtools.library")
  82.   (dest "LIBS:")
  83.   (confirm)
  84. )
  85.  
  86. (copyfiles
  87. (prompt "\nCopying font.....")
  88.   (help   @copyfiles-help)
  89.   (source "fonts/")
  90.   (dest "FONTS:")
  91.   (all)
  92.   (confirm)
  93. )
  94.  
  95. (CLEANUP)
  96. (exit)
  97.  
  98.